home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / networking / amitcp / amitalk152.lha / AmiTALK / 30.talkrequest.rexx next >
Encoding:
OS/2 REXX Batch file  |  1995-03-08  |  488 b   |  22 lines
  1. /* A talkrequest.rx for use with KS 3.0+, but without rexxreqtools.library */
  2. /* Fixed by JanusMan on #amiga ~11/28/94 */
  3. /* Fixed some more by Brian Gunn based on ideas from Andreas S. Oesterhelt 12/08/94 */
  4.  
  5. NL = '0a'x
  6.  
  7. PARSE ARG callee
  8.  
  9. text=callee ||" at "||DATE()||", "||TIME(CIVIL)
  10.  
  11. address command
  12.  
  13. 'RequestChoice >t:ans "Incoming talk request" "'||text||'" "Answer|Ignore"'
  14. if (open(answer,"t:ans","R")) then do
  15.     result=readln(answer)
  16. end
  17. if result==1 then
  18.     'talk' callee
  19. endif
  20.  
  21.  
  22.